Komputer for Alle 1998 #13/Skiva nr 13-1998 (Svart).iso/nksdemo.exe/skepp.dxr/00144.ls

Text File | 1998-10-02 | 1.5 KB | 63 lines

on hit7
  global tid, skotTid, skottILuften, shipHit, hv, sink, skeppTyp
  set av to 50
  if skotTid = (100 - av) then
    set skotTid to 100
    set the memberNum of sprite 7 to 121
    set the locV of sprite 7 to 120
    updateStage()
    if sprite 7 intersects sprite(8) then
      if getAt(hv, 2) = 1 then
        set sink to 0
      else
        set sink to 82
      end if
      setAt(shipHit, 2, 1)
      set skotTid to 111
    end if
  end if
  if skotTid = 104 then
    puppetSound(3, 225)
    set the memberNum of sprite 7 to 122
  end if
  if skotTid = 108 then
    set the memberNum of sprite 7 to 123
  end if
  if skotTid = 110 then
    set the locV of sprite 7 to 1000
    set skottILuften to 0
    set skotTid to 0
  end if
  if skotTid = 111 then
    puppetSound(3, 227)
    set the locV of sprite 7 to 1000
    set the memberNum of sprite 8 to 83 + sink
    updateStage()
  end if
  if skotTid = 126 then
    set the memberNum of sprite 8 to 84 + sink
    updateStage()
  end if
  if skotTid = 141 then
    set the memberNum of sprite 8 to 85 + sink
    updateStage()
  end if
  if skotTid = 156 then
    set the memberNum of sprite 8 to 86 + sink
    updateStage()
  end if
  if skotTid = 171 then
    set the memberNum of sprite 8 to 87 + sink
    updateStage()
  end if
  if skotTid = 186 then
    set the locH of sprite 8 to 1000
    setAt(shipHit, 2, 0)
    set skottILuften to 0
    set skotTid to 0
    set skeppTyp to 2
    pointCounter()
    updateStage()
  end if
end